home *** CD-ROM | disk | FTP | other *** search
/ B Soft 3 / B-Soft_3_19xx_Maik__Mike_de_Side_A.d64 / top ten (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  129 lines
  1. 1 print"[147]":poke53280,4:poke53281,7:print"[144]":print"----------------------------------------":print"----------------------------------------":print" liontops proudly presents:":print"----------------------------------------":print"----------------------------------------":print
  2. 2 print" *** *** ***   *** *** ***":print"  *  * * * *    *  *   * *":print"  *  * * ***    *  **  * *":print"  *  * * *      *  *   * *":print"  *  *** *      *  *** * *":print:print" written by peter 'leo' bohlmann":print:print" schwierigkeitsgrad (1-3) ?":print:input"";yy$:ifyy$="1"then6
  3. 3 ifyy$="2"then7
  4. 4 ifyy$="3"then8
  5. 5 goto1
  6. 6 g=18000:goto9
  7. 7 g=13000:goto9
  8. 8 g=10000:goto9
  9. 9 getaa$:ifaa$=""then9
  10. 10 ifaa$=chr$(32)then11
  11. 11 print"[147]":print:print" nenn' mir deinen namen, babe !":print:input"";n$:z=int(3*rnd(1))+1:ifz=1thengoto15
  12. 12 ifz=2thengoto16
  13. 13 ifz=3thengoto17
  14. 14 goto1
  15. 15 print:print" ...kicher...":p=p-10:goto18
  16. 16 print:print" cooooooool !!!":p=p+10:goto18
  17. 17 print:print" ...na ja...":goto18
  18. 18 print:print:print" <space>"
  19. 19 getaa$:ifaa$=""then19
  20. 20 ifaa$=chr$(32)then21
  21. 21 print"[147]":print:print" welche musik willst du machen ?":print:print" dance-floor,pop,rap,deutsche rockmusik,":print" fun-punk":print:print:input"";m$:ifm$="dance-floor"then27
  22. 22 ifm$="pop"then28
  23. 23 ifm$="rap"then29
  24. 24 ifm$="deutsche rockmusik"then30
  25. 25 ifm$="fun-punk"then31
  26. 26 goto21
  27. 27 p=p+50:goto32
  28. 28 p=p+30:goto32
  29. 29 p=p+40:goto32
  30. 30 p=p+20:goto32
  31. 31 p=p+10:goto32
  32. 32 print"[147]":print:print" wie soll deine single heissen ?":print:input"";s$:aa=int(3*rnd(1))+1:ifaa=1then35
  33. 33 ifaa=2then36
  34. 34 ifaa=3then37
  35. 35 print:print" prust,glucks,pfflrfff !!!":p=p-20:goto38
  36. 36 print:print" o.k.":goto38
  37. 37 print:print" yeahh !!!":p=p+20:goto38
  38. 38 print:print:print" <space>"
  39. 39 getaa$:ifaa$=""then39
  40. 40 ifaa$=chr$(32)then41
  41. 41 print"[147]":print:print" der song muss vertont werden ! du hast":print:print" genau"g"dm.such dir ein studio aus":print:print:print" glamour house = 10000 dm.":print:print" chaos records = 7500 dm.":print:print" yuppie vynyl = 5000 dm.":print:print" laerm ton = 2500 dm.":print:print" wumm = 1000 dm.":print:input"";sn$
  42. 42 ifsn$="glamour house"then48
  43. 43 ifsn$="chaos records"then49
  44. 44 ifsn$="yuppie vynyl"then50
  45. 45 ifsn$="laerm ton"then51
  46. 46 ifsn$="wumm"then52
  47. 47 goto41
  48. 48 g=g-10000:p=p+40:goto53
  49. 49 g=g-7500:p=p+30:goto53
  50. 50 g=g-5000:p=p+15:goto53
  51. 51 g=g-2500:goto53
  52. 52 g=g-1000:p=p-20:goto53
  53. 53 print"[147]":print:print" natuerlich ist auch dein image sehr":print:print" wichtig.wie willst du dich praesen-":print:print" tieren ("g"dm.) ?":print:print" als...":print:print" typ von nebenan (kosten:1000 dm)":print:print" lover boy (kosten:3000 dm)":print:print" harter typ (kosten:1500 dm)"
  54. 54 print:print" geheimnisvoller typ (k.:2000 dm)":print:input"";i$:ifi$="typ von nebenan"then59
  55. 55 ifi$="lover boy"then60
  56. 56 ifi$="harter typ"then61
  57. 57 ifi$="geheimnisvoller typ"then62
  58. 58 goto53
  59. 59 g=g-1000:p=p+20:goto63
  60. 60 g=g-3000:p=p+40:goto63
  61. 61 g=g-1500:p=p+10:goto63
  62. 62 g=g-2000:p=p+30:goto63
  63. 63 print"[147]":print:print" deine single muss natuerlich auch":print:print" vertrieben werden.such dir einever-":print:print" triebsfirma aus (du hast"g"dm.).":print:print" vertrieb toll = 5000 dm":print:print" vertrieb cool = 2500 dm":print:print" vertrieb yeah = 1000 dm":print:input"";v$
  64. 64 ifv$="vertrieb toll"then68
  65. 65 ifv$="vertrieb cool"then69
  66. 66 ifv$="vertrieb yeah"then70
  67. 67 goto63
  68. 68 g=g-5000:p=p+30:goto71
  69. 69 g=g-2500:p=p+20:goto71
  70. 70 g=g-1000:p=p+10:goto71
  71. 71 print:print" <space>"
  72. 72 getaa$:ifaa$=""then72
  73. 73 ifaa$=chr$(32)then74
  74. 74 print"[147]":print:print" natuerlich ist auch die presse sehr":print:print" wichtig ! vielleicht sollte man sie":print:print" bestechen...(du hast"g"dm.).":print:input" ja oder nein";aa$:ifaa$="nein"then85
  75. 75 ifaa$="ja"then77
  76. 76 goto74
  77. 77 print:print" wieviel willst du dem zustaendigen":print:print" reporter zukommen lassen ???":print:input"";xx:ifxx>4000then81
  78. 78 ifxx<4000then82
  79. 79 ifxx<2500then83
  80. 80 ifxx<1000then84
  81. 81 p=p+50:goto85
  82. 82 p=p+35:goto85
  83. 83 p=p+20:goto85
  84. 84 p=p+10:goto85
  85. 85 print"[147]":ifg<-1000then87
  86. 86 goto88
  87. 87 print:print" tja, du hast dich leider finanziell":print:print" uebernommen und bist pleite...":print:print:" ...versuch's halt noch mal !":end
  88. 88 print:print" dann wollen wir doch mal sehen,was":print:print" die 'bravo' schreibt...":print:print:print:print" <space>"
  89. 89 getaa$:ifaa$=""then89
  90. 90 ifaa$=chr$(32)then91
  91. 91 print"[147]":poke53280,1:poke53280,1:ifp>160then97
  92. 92 ifp>80then96
  93. 93 print:print" na ja... "n$" haut mich mit":print:print" seiner debut-single "s$"":print:print" nicht gerade vom hocker.auch sein":print:print" image als "i$" ist nicht":print:print" gerade neu...schade !":print:print" *"
  94. 94 getaa$:ifaa$=""then94
  95. 95 ifaa$=chr$(32)then98
  96. 96 print:print" der musiker heisst "n$",":print:print" und seine single "s$" .":print:print" geboten wird: "m$" ...":print:print" echt nicht schlecht,aber auch nicht":print:print" spitze...achtung:"i$" !":print:print" **":goto94
  97. 97 print:print" spitze,dieser "n$" !":print:print" echt supergeile,heisse mucke !!!":print:print" "m$" at it's best !":print:print" die scheibe: "s$".":print:print" er ist ein "i$" !":print:print" kaufen !!!!!!!!!!!!!":print:print" ***":goto94
  98. 98 print"[147]":print:print" so, nach der presse kommt das wich-":print:print" tigste - die charts !!!":print:print" um zu sehen, wie du ankommst,druecke":print:print" <space> !!!"
  99. 99 getaa$:ifaa$=""then99
  100. 100 ifaa$=chr$(32)then101
  101. 101 print"[147]":poke53280,5:poke53281,3:print:print" erste woche:":ifp>200then105
  102. 102 ifp>170then105
  103. 103 ifp>120then105
  104. 104 ifp<120then106
  105. 105 ch=int(100*rnd(1))+1:goto107
  106. 106 print:print" du bist nicht in den charts...":goto108
  107. 107 print:print" du hast es auf anhieb auf platz "ch" ":print:print" der charts geschafft !":goto109
  108. 108 print:print" einmal draussen,nie mehr rein...":print:print" versuch's einfach noch mal !":end
  109. 109 getaa$:ifaa$=""then109
  110. 110 ifaa$=chr$(32)then111
  111. 111 print"[147]":print:print" zweite woche:":ifp>150then113
  112. 112 goto106
  113. 113 ch=int(60*rnd(1))+1:print:print" du belegst platz "ch" der charts..."
  114. 114 getaa$:ifaa$=""then114
  115. 115 ifaa$=chr$(32)then116
  116. 116 print"[147]":print:print" dritte woche:":ifp>170then118
  117. 117 goto106
  118. 118 ch=int(30*rnd(1))+1:print:print" platz "ch" der charts ist dein !"
  119. 119 getaa$:ifaa$=""then119
  120. 120 ifaa$=chr$(32)then121
  121. 121 print"[147]":print:print" vierte woche:":ifp>185then123
  122. 122 goto106
  123. 123 ch=int(15*rnd(1))+1:ifch>12then106
  124. 124 print:print" du bist auf rang "ch" der charts !"
  125. 125 getaa$:ifaa$=""then125
  126. 126 ifaa$=chr$(32)then127
  127. 127 print"[147]"
  128. 128 poke53280,8:poke53281,3:poke53280,4:poke53281,7:poke53280,3:poke53281,5:print" du hast es geschafft !!!!!!!!!":print" du bist der absolute chartbreaker !":print:print:print" chartbreaker !!!!!":print:print" chartbreaker !!!!!":goto128
  129.